home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacHack 1994
/
MacHack 1994.toast
/
MacHack™94
/
Talks & Papers
/
Timothy Knox
/
yerk 3.66
/
Supplement
/
Unsupported
/
Optionals
/
Neon Sieve
< prev
next >
Wrap
Text File
|
1994-06-24
|
336b
|
18 lines
8190 constant size
0 variable flags size allot
: do-prime
flags size 1 fill
0 size 0
do flags i+ c@
if 3 i+ i+ dup i+
size < if
size flags + over i+ flags + do 0 ic! dup
+loop then drop 1+
then
loop
. ." primes" cr
;
: sieve 10 0 do do-prime loop ." Done." cr ;